home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / metric.bas < prev    next >
BASIC Source File  |  1990-10-14  |  3KB  |  40 lines
  1. 10    REM ------------------------------------
  2. 20    REM    M E T R I C   C O N V E R S I O N
  3. 30    REM ------------------------------------
  4. 40    REM
  5. 50    CLEARW 3: REM CLEAR SCREEN
  6. 60    PRINT "══════════════════════════════════════════════════════════════"
  7. 70    PRINT "      M E T R I C   C O N V E R S I O N   P R O G R A M      :"
  8. 80    PRINT "══════════════════════════════════════════════════════════════"
  9. 90    CL$ = "                                                             ":REM Clear Line
  10. 100   PRINT "ENTER NUMBER YOU WISH TO CONVERT"
  11. 110   PRINT "NUMBER: ";:INPUT;N$
  12. 120   N = VAL(N$)
  13. 130   IF N = 0 AND N$ <> "0" THEN PRINT "                      " : GOTO 110
  14. 140   PRINT CL$ :PRINT "NUMBER:";:PRINT N
  15. 150   IF N <= 0 THEN GOTO 340
  16. 160   PRINT "INCHES -"; CHR$(16); " CENTIMETERS";:PRINT TAB(24) N * 2.54; "cm"
  17. 170   PRINT "CENTIMETERS -"; CHR$(16); " INCHES";:PRINT TAB(24) N * .3937; "in"
  18. 180   PRINT "FEET -"; CHR$(16); " CENTIMETERS";:PRINT TAB(24) N * 30.48; "cm"
  19. 190   PRINT "CENTIMETERS -"; CHR$(16);" FEET";:PRINT TAB(24) N * .0328; "ft"
  20. 200   PRINT "FEET -"; CHR$(16);" METERS";:PRINT TAB(24) N * .3048; "m"
  21. 210   PRINT "METERS -"; CHR$(16);" FEET";:PRINT TAB(24) N * 3.2808; "ft"
  22. 220   PRINT "MILES -"; CHR$(16);" KILOMETERS";:PRINT TAB(24) N * 1.609; "km"
  23. 230   PRINT "KILOMETERS -"; CHR$(16);" MILES";:PRINT TAB(24) N * .6215; "mi"
  24. 240   PRINT "MILES -"; CHR$(16);" NAUTICAL MILES";:PRINT TAB(24) N * .86898; "mi"
  25. 250   PRINT "NAUTICAL MILES -"; CHR$(16);" MILES";:PRINT TAB(24) N * 1.1508; "nm"
  26. 260   PRINT "GALLONS -"; CHR$(16);" LITERS";:PRINT TAB(65) N * 3.785; "l"
  27. 270   PRINT "LITERS -"; CHR$(16);" GALLONS";:PRINT TAB(65) N * .2642; "gal"
  28. 280   PRINT "OUNCES -"; CHR$(16);" GRAMS";:PRINT TAB(65) N * 28.3527; "gm"
  29. 290   PRINT "GRAMS -"; CHR$(16);" OUNCES";:PRINT TAB(65) N * .03527; "oz"
  30. 300   PRINT "POUNDS -"; CHR$(16);" KILOGRAMS";:PRINT TAB(65) N * .4536; "kg"
  31. 310   PRINT "KILOGRAMS -"; CHR$(16);" POUNDS";:PRINT TAB(65) N * 2.2046; "lbs"
  32. 320   PRINT "KILOWATTS -"; CHR$(16);" BTU(thous)";:PRINT USING "##,###"; N * 34.1311;:PRINT " btu"
  33. 330   PRINT "DECIMAL -"; CHR$(16);" HEXADECIMAL";:IF N > 65000 THEN PRINT TAB(66) "OUT OF RANGE" ELSE PRINT TAB(66) HEX$(N)
  34. 340   PRINT "FAHRENHEIT -";CHR$(16);" CELSIUS";:A$ = STR$((N - 32) * (5 / 9)):PRINT TAB(65) A$;CHR$(248);"C"
  35. 350   PRINT "CELSIUS -";CHR$(16);" FAHRENHEIT";:A$ = STR$(N * 9 / 5 + 32): PRINT TAB(65) A$;CHR$(248);"F"
  36. 360   PRINT "C";:PRINT "ONTINUE or ";:PRINT "Q";:PRINT "UIT (C/Q)? ";:INPUT;A$
  37. 370   IF LEFT$(A$,1) = "C" OR LEFT$(A$,1) = "c" THEN GOTO 50
  38. 380   IF LEFT$(A$,1) = "Q" OR LEFT$(A$,1) = "q" THEN END
  39. 390   GOTO 360
  40. qqqqqqqqqqqqqqq